perm filename LINES.F4[1,LCS] blob sn#093935 filedate 1974-03-27 generic text, type T, neo UTF8
05000		SUBROUTINE UNPACK(K,M,N,I)
05100		COMMON/LL/L
05200	C  L IS FOR VIS. OR INVIS. LINES.
05300		DIMENSION I(1)
05400		L=2
05500		N=I(K)
05600		L=2
05700		IF(N.LT.100000000)GO TO 2
05800		L=3
05900		N=N-100000000
06000	2	M=N/10000
06100		N=N-M*10000
06200		IF(M.GT.1000)M=1000-M
06300		IF(N.GT.1000)N=1000-N
06400		RETURN
06500		END
07000	
12000		SUBROUTINE LINES(K,L,M)
12010		COMMON Q(100),R(100),E(100),N
12100		IF(N.NE.0)GO TO 1
12200		DIMENSION I(2000)
12300		CALL DPYSET(1,I,2000)
12400		N=-1
12500	1	IF(M.EQ.3)GO TO 2
12600		CALL AVECT(K,L)
12800		RETURN
12900	2	CALL AIVECT(K,L)
13000		END